home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / pslatex / fonts / old-dvips / thicken.ps < prev   
Text File  |  1992-09-09  |  631b  |  25 lines
  1. % Increase the strokewidth of a stroked (PaintType 1 or 3) font.
  2. % If the font is not of the right PaintType or does not have a 
  3. % StrokeWidth entry, does nothing.
  4.  
  5. % Mario Wolczko, 10 Jan 92
  6.  
  7. /ThickenFont {  % basefontname newfontname factor ThickenFont newfontname
  8. 20 dict begin
  9.   /factor exch def
  10.   exch findfont dup length dict /font exch def
  11.    {1 index /FID ne
  12.       {font 3 1 roll put}
  13.       {pop pop}
  14.       ifelse
  15.    } forall
  16.   font /PaintType get dup
  17.   1 eq exch 3 eq or
  18.   font /StrokeWidth known and
  19.     { font /StrokeWidth get factor mul
  20.       font /StrokeWidth 3 2 roll put
  21.     } if
  22.   dup font definefont pop
  23. end
  24. } def
  25.